object Doctor: TDoctor
  Left = 152
  Top = 105
  BorderStyle = bsDialog
  Caption = 'At the Doctor'
  ClientHeight = 385
  ClientWidth = 550
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  PixelsPerInch = 96
  Position = poScreenCenter
  OnActivate = FormActivate
  TextHeight = 16
  object Label35: TLabel
    Left = 14
    Top = 208
    Width = 96
    Height = 16
    Alignment = taRightJustify
    Caption = 'OPV (4 Months)'
    Font.Color = clBlue
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label36: TLabel
    Left = 9
    Top = 232
    Width = 101
    Height = 16
    Alignment = taRightJustify
    Caption = 'DPT1 (2 Months)'
    Font.Color = clBlue
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object TabbedNotebook1: TTabbedNotebook
    Left = 0
    Top = 0
    Width = 550
    Height = 385
    Align = alClient
    Font.Color = clBlue
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = [fsBold]
    TabsPerRow = 4
    TabFont.Color = clBlue
    TabFont.Height = -12
    TabFont.Name = 'MS Sans Serif'
    TabFont.Style = []
    TabOrder = 0
    object TTabPage
      Left = 5
      Top = 26
      Caption = 'Pediatrician Information'
      object Image2: TImage
        Left = 56
        Top = 264
        Width = 49
        Height = 49
        Picture.Data = {<image000.bmp>}
      end
      object Image1: TImage
        Left = 360
        Top = 48
        Width = 153
        Height = 185
        Picture.Data = {<image001.bmp>}
      end
      object Bevel3: TBevel
        Left = 360
        Top = 48
        Width = 153
        Height = 185
      end
      object Bevel4: TBevel
        Left = 56
        Top = 264
        Width = 50
        Height = 50
      end
      object Label5: TLabel
        Left = 7
        Top = 330
        Width = 123
        Height = 24
        Caption = 'At the Doctor'
        Font.Color = clBlue
        Font.Height = -21
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object OKBtn: TBitBtn
        Left = 340
        Top = 319
        Width = 93
        Height = 27
        Caption = 'Ok'
        Default = True
        Font.Color = clGreen
        Font.Height = -19
        Font.Name = 'Arial'
        Font.Style = []
        ModalResult = 1
        ParentFont = False
        TabOrder = 0
        OnClick = OKBtnClick
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          04000000000080000000CE0E0000D80E00000000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
          5555555555555555555555555205555555555555222055555555555522205555
          5555555222220555555555222222055555555722052220555555720555522055
          5555555555522205555555555555220555555555555552205555555555555572
          0555555555555557205555555555555552205555555555555555}
        Margin = 8
        Spacing = -1
      end
      object CancelBtn: TBitBtn
        Left = 436
        Top = 319
        Width = 93
        Height = 27
        Font.Color = clRed
        Font.Height = -19
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        OnClick = CancelBtnClick
        Kind = bkCancel
        Margin = 2
        Spacing = -1
      end
      object GroupBox1: TGroupBox
        Left = 8
        Top = 16
        Width = 329
        Height = 233
        TabOrder = 2
        object Lable777: TLabel
          Left = 40
          Top = 32
          Width = 55
          Height = 22
          Alignment = taRightJustify
          Caption = 'Name:'
          Font.Color = clBlue
          Font.Height = -19
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object Label9: TLabel
          Left = 58
          Top = 112
          Width = 37
          Height = 22
          Alignment = taRightJustify
          Caption = 'City:'
          Font.Color = clBlue
          Font.Height = -19
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object Label10: TLabel
          Left = 46
          Top = 152
          Width = 49
          Height = 22
          Alignment = taRightJustify
          Caption = 'State:'
          Font.Color = clBlue
          Font.Height = -19
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object Label11: TLabel
          Left = 35
          Top = 184
          Width = 60
          Height = 22
          Alignment = taRightJustify
          Caption = 'Phone:'
          Font.Color = clBlue
          Font.Height = -19
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object Label8: TLabel
          Left = 18
          Top = 72
          Width = 77
          Height = 22
          Alignment = taRightJustify
          Caption = 'Address:'
          Font.Color = clBlue
          Font.Height = -19
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object Label12: TLabel
          Left = 183
          Top = 152
          Width = 32
          Height = 22
          Alignment = taRightJustify
          Caption = 'Zip:'
          Font.Color = clBlue
          Font.Height = -19
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object DocName: TEdit
          Left = 104
          Top = 24
          Width = 217
          Height = 26
          Font.Color = clBlack
          Font.Height = -16
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
        end
        object DocAddress: TEdit
          Left = 104
          Top = 64
          Width = 217
          Height = 26
          Font.Color = clBlack
          Font.Height = -16
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
        end
        object DocCity: TEdit
          Left = 104
          Top = 104
          Width = 217
          Height = 26
          Font.Color = clBlack
          Font.Height = -16
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
        end
        object DocState: TEdit
          Left = 104
          Top = 144
          Width = 49
          Height = 26
          Font.Color = clBlack
          Font.Height = -16
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          TabOrder = 3
        end
        object DocPhone: TEdit
          Left = 104
          Top = 184
          Width = 217
          Height = 26
          Font.Color = clBlack
          Font.Height = -16
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          TabOrder = 4
        end
        object DocZip: TEdit
          Left = 224
          Top = 144
          Width = 97
          Height = 26
          Font.Color = clBlack
          Font.Height = -16
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          TabOrder = 5
        end
      end
      object HelpBtn: TBitBtn
        Left = 504
        Top = 287
        Width = 25
        Height = 27
        Caption = ' '
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 3
        OnClick = HelpBtnClick
        Kind = bkHelp
        Margin = 2
        Spacing = -1
      end
    end
    object TTabPage
      Left = 5
      Top = 26
      Caption = 'Doctor Visits'
      object Shape1: TShape
        Left = 352
        Top = 192
        Width = 81
        Height = 97
        Brush.Color = clBtnFace
        Pen.Color = clRed
        Pen.Style = psInsideFrame
        Pen.Width = 2
      end
      object Label1: TLabel
        Left = 144
        Top = 8
        Width = 41
        Height = 19
        Caption = 'Date:'
        Font.Color = clBlue
        Font.Height = -16
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label2: TLabel
        Left = 8
        Top = 40
        Width = 38
        Height = 19
        Caption = 'Title:'
        Font.Color = clBlue
        Font.Height = -16
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label3: TLabel
        Left = 320
        Top = 16
        Width = 99
        Height = 19
        Caption = 'Date Search:'
        Font.Color = clBlue
        Font.Height = -16
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label4: TLabel
        Left = 320
        Top = 80
        Width = 96
        Height = 19
        Caption = 'Title Search:'
        Font.Color = clBlue
        Font.Height = -16
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Title: TLabel
        Left = 56
        Top = 40
        Width = 249
        Height = 19
        AutoSize = False
        Caption = 'Diary Empty'
        Font.Color = clBlue
        Font.Height = -16
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Up: TSpeedButton
        Left = 280
        Top = 240
        Width = 25
        Height = 25
        Hint = 'Previous Record'
        Glyph.Data = {
          78010000424D7801000000000000760000002800000020000000100000000100
          04000000000000000000120B0000120B00000000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000333
          3333333333777F33333333333309033333333333337F7F333333333333090333
          33333333337F7F33333333333309033333333333337F7F333333333333090333
          33333333337F7F33333333333309033333333333FF7F7FFFF333333000090000
          3333333777737777F333333099999990333333373F3333373333333309999903
          333333337F33337F33333333099999033333333373F333733333333330999033
          3333333337F337F3333333333099903333333333373F37333333333333090333
          33333333337F7F33333333333309033333333333337373333333333333303333
          333333333337F3333333333333303333333333333337333333330000}
        NumGlyphs = 2
        ParentShowHint = False
        ShowHint = True
        OnClick = UpClick
      end
      object DelButton: TSpeedButton
        Left = 368
        Top = 216
        Width = 49
        Height = 49
        Glyph.Data = {
          26020000424D260200000000000076000000280000001C0000001B0000000100
          040000000000B0010000CE0E0000D80E00000000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666
          66666666676666660000666666666666666666667B101B160000666666666666
          66666667B101B1B600006666666666666666667B101B1B060000666666666666
          666667B101B1B0B6000066666666666666667B101B1B0B060000666666666666
          66670101B1B0B00600006666666666666672001B1B0B00060000666666666666
          67022201B0B0000600006666666666667B0022000B0000660000666666666667
          B1B10220B0000666000066666666667B1B1B0020000066660000666666666701
          B1B1B0200006666600006666666672001B1B1000006666660000666666670222
          01B1B000066666660000666666780022001B00006666666600006666678D8D02
          20B0000666666666000066667008D800200000666666666600006667FDF08D80
          20000666666666660000667FDFD0D8D00000666666666666000067FDFDF00D80
          0006666666666666000067DFDFDF08000066666666666666000060FDFDFD0000
          06666666666666660000600FDFDF000066666666666666660000600DFDF00006
          6666666666666666000060000000006666666666666666660000660000000666
          66666666666666660000}
        OnClick = DelButtonClick
      end
      object Down: TSpeedButton
        Left = 280
        Top = 272
        Width = 25
        Height = 25
        Hint = 'Next Record'
        Glyph.Data = {
          78010000424D7801000000000000760000002800000020000000100000000100
          04000000000000000000120B0000120B00000000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
          333333333337F33333333333333033333333333333373F333333333333090333
          33333333337F7F33333333333309033333333333337373F33333333330999033
          3333333337F337F33333333330999033333333333733373F3333333309999903
          333333337F33337F33333333099999033333333373333373F333333099999990
          33333337FFFF3FF7F33333300009000033333337777F77773333333333090333
          33333333337F7F33333333333309033333333333337F7F333333333333090333
          33333333337F7F33333333333309033333333333337F7F333333333333090333
          33333333337F7F333333333333000333333333333377733333330000}
        NumGlyphs = 2
        ParentShowHint = False
        ShowHint = True
        OnClick = DownClick
      end
      object Label6: TLabel
        Left = 360
        Top = 200
        Width = 65
        Height = 16
        Alignment = taCenter
        AutoSize = False
        Caption = 'Delete'
        Font.Color = clRed
        Font.Height = -13
        Font.Name = 'System'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
      end
      object Label7: TLabel
        Left = 360
        Top = 264
        Width = 65
        Height = 16
        Alignment = taCenter
        AutoSize = False
        Caption = 'Record'
        Font.Color = clRed
        Font.Height = -13
        Font.Name = 'System'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
      end
      object Text92: TLabel
        Left = 7
        Top = 330
        Width = 123
        Height = 24
        Caption = 'At the Doctor'
        Font.Color = clBlue
        Font.Height = -21
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object EntryDate: TLabel
        Left = 192
        Top = 8
        Width = 64
        Height = 19
        Caption = '__-__-__'
        Font.Color = clBlue
        Font.Height = -16
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Ok2: TBitBtn
        Left = 340
        Top = 319
        Width = 93
        Height = 27
        Caption = 'Ok'
        Default = True
        Font.Color = clGreen
        Font.Height = -19
        Font.Name = 'Arial'
        Font.Style = []
        ModalResult = 1
        ParentFont = False
        TabOrder = 0
        OnClick = Ok2Click
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          04000000000080000000CE0E0000D80E00000000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
          5555555555555555555555555205555555555555222055555555555522205555
          5555555222220555555555222222055555555722052220555555720555522055
          5555555555522205555555555555220555555555555552205555555555555572
          0555555555555557205555555555555552205555555555555555}
        Margin = 8
        Spacing = -1
      end
      object Cancel2: TBitBtn
        Left = 436
        Top = 319
        Width = 93
        Height = 27
        Font.Color = clRed
        Font.Height = -19
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        OnClick = Cancel2Click
        Kind = bkCancel
        Margin = 2
        Spacing = -1
      end
      object Help2: TBitBtn
        Left = 504
        Top = 287
        Width = 25
        Height = 27
        Caption = ' '
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 2
        OnClick = Help2Click
        Kind = bkHelp
        Margin = 2
        Spacing = -1
      end
      object Entry: TMemo
        Left = 8
        Top = 72
        Width = 265
        Height = 225
        Lines.Strings = (
          '')
        ScrollBars = ssVertical
        TabOrder = 3
      end
      object DateSearch: TComboBox
        Left = 320
        Top = 40
        Width = 145
        Height = 26
        Font.Color = clBlue
        Font.Height = -16
        Font.Name = 'Arial'
        Font.Style = []
        ItemHeight = 18
        ParentFont = False
        TabOrder = 4
        OnClick = DateSearchClick
      end
      object TitleSearch: TComboBox
        Left = 320
        Top = 104
        Width = 145
        Height = 26
        Font.Color = clBlue
        Font.Height = -16
        Font.Name = 'Arial'
        Font.Style = []
        ItemHeight = 18
        ParentFont = False
        TabOrder = 5
        OnClick = TitleSearchClick
      end
      object BitBtn1: TBitBtn
        Left = 320
        Top = 144
        Width = 145
        Height = 33
        Caption = 'New Entry'
        Font.Color = clBlue
        Font.Height = -19
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 6
        OnClick = BitBtn1Click
      end
    end
    object TTabPage
      Left = 5
      Top = 26
      Caption = 'Immunizations'
      object Label13: TLabel
        Left = 7
        Top = 330
        Width = 123
        Height = 24
        Caption = 'At the Doctor'
        Font.Color = clBlue
        Font.Height = -21
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object Label21: TLabel
        Left = 57
        Top = 120
        Width = 101
        Height = 16
        Alignment = taRightJustify
        Caption = 'DTP1 (2 Months)'
        Font.Color = clBlue
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label23: TLabel
        Left = 64
        Top = 144
        Width = 94
        Height = 16
        Alignment = taRightJustify
        Caption = 'DTP (4 Months)'
        Font.Color = clBlue
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label24: TLabel
        Left = 64
        Top = 168
        Width = 94
        Height = 16
        Alignment = taRightJustify
        Caption = 'DTP (6 Months)'
        Font.Color = clBlue
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label25: TLabel
        Left = 57
        Top = 192
        Width = 101
        Height = 16
        Alignment = taRightJustify
        Caption = 'DTP (15 Months)'
        Font.Color = clBlue
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label26: TLabel
        Left = 62
        Top = 264
        Width = 96
        Height = 16
        Alignment = taRightJustify
        Caption = 'OPV (4 Months)'
        Font.Color = clBlue
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label27: TLabel
        Left = 324
        Top = 48
        Width = 90
        Height = 16
        Alignment = taRightJustify
        Caption = 'HIB (2 Months)'
        Font.Color = clBlue
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label28: TLabel
        Left = 324
        Top = 72
        Width = 90
        Height = 16
        Alignment = taRightJustify
        Caption = 'HIB (4 Months)'
        Font.Color = clBlue
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label29: TLabel
        Left = 324
        Top = 96
        Width = 90
        Height = 16
        Alignment = taRightJustify
        Caption = 'HIB (6 Months)'
        Font.Color = clBlue
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label22: TLabel
        Left = 317
        Top = 120
        Width = 97
        Height = 16
        Alignment = taRightJustify
        Caption = 'HIB (12 Months)'
        Font.Color = clBlue
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label30: TLabel
        Left = 55
        Top = 288
        Width = 103
        Height = 16
        Alignment = taRightJustify
        Caption = 'OPV (15 Months)'
        Font.Color = clBlue
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label31: TLabel
        Left = 98
        Top = 24
        Width = 60
        Height = 16
        Alignment = taRightJustify
        Caption = 'HB (Birth)'
        Font.Color = clBlue
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label32: TLabel
        Left = 61
        Top = 48
        Width = 97
        Height = 16
        Alignment = taRightJustify
        Caption = 'HB (1-2 Months)'
        Font.Color = clBlue
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label33: TLabel
        Left = 72
        Top = 72
        Width = 86
        Height = 16
        Alignment = taRightJustify
        Caption = 'HB (4 Months)'
        Font.Color = clBlue
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label34: TLabel
        Left = 54
        Top = 96
        Width = 104
        Height = 16
        Alignment = taRightJustify
        Caption = 'HB (6-18 Months)'
        Font.Color = clBlue
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label37: TLabel
        Left = 64
        Top = 216
        Width = 94
        Height = 16
        Alignment = taRightJustify
        Caption = 'DTP (4-6 years)'
        Font.Color = clBlue
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label38: TLabel
        Left = 62
        Top = 240
        Width = 96
        Height = 16
        Alignment = taRightJustify
        Caption = 'OPV (2 Months)'
        Font.Color = clBlue
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label39: TLabel
        Left = 318
        Top = 24
        Width = 96
        Height = 16
        Alignment = taRightJustify
        Caption = 'OPV (4-6 years)'
        Font.Color = clBlue
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label40: TLabel
        Left = 317
        Top = 144
        Width = 97
        Height = 16
        Alignment = taRightJustify
        Caption = 'HIB (15 Months)'
        Font.Color = clBlue
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label41: TLabel
        Left = 308
        Top = 168
        Width = 106
        Height = 16
        Alignment = taRightJustify
        Caption = 'MMR (15 Months)'
        Font.Color = clBlue
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label42: TLabel
        Left = 315
        Top = 192
        Width = 99
        Height = 16
        Alignment = taRightJustify
        Caption = 'MMR (4-6 years)'
        Font.Color = clBlue
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label43: TLabel
        Left = 224
        Top = 0
        Width = 311
        Height = 13
        Caption = 'Click the help button for details on these immunizatons'
        Font.Color = clYellow
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Ok3: TBitBtn
        Left = 340
        Top = 319
        Width = 93
        Height = 27
        Caption = 'Ok'
        Default = True
        Font.Color = clGreen
        Font.Height = -19
        Font.Name = 'Arial'
        Font.Style = []
        ModalResult = 1
        ParentFont = False
        TabOrder = 0
        OnClick = Ok3Click
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          04000000000080000000CE0E0000D80E00000000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
          5555555555555555555555555205555555555555222055555555555522205555
          5555555222220555555555222222055555555722052220555555720555522055
          5555555555522205555555555555220555555555555552205555555555555572
          0555555555555557205555555555555552205555555555555555}
        Margin = 8
        Spacing = -1
      end
      object Cancel3: TBitBtn
        Left = 436
        Top = 319
        Width = 93
        Height = 27
        Font.Color = clRed
        Font.Height = -19
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        OnClick = Cancel3Click
        Kind = bkCancel
        Margin = 2
        Spacing = -1
      end
      object Help3: TBitBtn
        Left = 296
        Top = 319
        Width = 25
        Height = 27
        Caption = ' '
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 2
        OnClick = Help3Click
        Kind = bkHelp
        Margin = 2
        Spacing = -1
      end
      object MaskEdit9: TMaskEdit
        Left = 168
        Top = 192
        Width = 73
        Height = 20
        EditMask = '!99-99-00;1;_'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        MaxLength = 8
        ParentFont = False
        TabOrder = 3
        Text = '  -  -  '
      end
      object MaskEdit8: TMaskEdit
        Left = 168
        Top = 168
        Width = 73
        Height = 20
        EditMask = '!99-99-00;1;_'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        MaxLength = 8
        ParentFont = False
        TabOrder = 4
        Text = '  -  -  '
      end
      object MaskEdit7: TMaskEdit
        Left = 168
        Top = 144
        Width = 73
        Height = 20
        EditMask = '!99-99-00;1;_'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        MaxLength = 8
        ParentFont = False
        TabOrder = 5
        Text = '  -  -  '
      end
      object MaskEdit6: TMaskEdit
        Left = 168
        Top = 120
        Width = 73
        Height = 20
        EditMask = '!99-99-00;1;_'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        MaxLength = 8
        ParentFont = False
        TabOrder = 6
        Text = '  -  -  '
      end
      object MaskEdit5: TMaskEdit
        Left = 168
        Top = 96
        Width = 73
        Height = 20
        EditMask = '!99-99-00;1;_'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        MaxLength = 8
        ParentFont = False
        TabOrder = 7
        Text = '  -  -  '
      end
      object MaskEdit4: TMaskEdit
        Left = 168
        Top = 72
        Width = 73
        Height = 20
        EditMask = '!99-99-00;1;_'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        MaxLength = 8
        ParentFont = False
        TabOrder = 8
        Text = '  -  -  '
      end
      object MaskEdit3: TMaskEdit
        Left = 168
        Top = 48
        Width = 73
        Height = 20
        EditMask = '!99-99-00;1;_'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        MaxLength = 8
        ParentFont = False
        TabOrder = 9
        Text = '  -  -  '
      end
      object MaskEdit2: TMaskEdit
        Left = 168
        Top = 24
        Width = 73
        Height = 20
        EditMask = '!99-99-00;1;_'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        MaxLength = 8
        ParentFont = False
        TabOrder = 10
        Text = '  -  -  '
      end
      object MaskEdit17: TMaskEdit
        Left = 424
        Top = 96
        Width = 73
        Height = 20
        EditMask = '!99-99-00;1;_'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        MaxLength = 8
        ParentFont = False
        TabOrder = 11
        Text = '  -  -  '
      end
      object MaskEdit16: TMaskEdit
        Left = 424
        Top = 72
        Width = 73
        Height = 20
        EditMask = '!99-99-00;1;_'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        MaxLength = 8
        ParentFont = False
        TabOrder = 12
        Text = '  -  -  '
      end
      object MaskEdit15: TMaskEdit
        Left = 424
        Top = 48
        Width = 73
        Height = 20
        EditMask = '!99-99-00;1;_'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        MaxLength = 8
        ParentFont = False
        TabOrder = 13
        Text = '  -  -  '
      end
      object MaskEdit14: TMaskEdit
        Left = 424
        Top = 24
        Width = 73
        Height = 20
        EditMask = '!99-99-00;1;_'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        MaxLength = 8
        ParentFont = False
        TabOrder = 14
        Text = '  -  -  '
      end
      object MaskEdit13: TMaskEdit
        Left = 168
        Top = 288
        Width = 73
        Height = 20
        EditMask = '!99-99-00;1;_'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        MaxLength = 8
        ParentFont = False
        TabOrder = 15
        Text = '  -  -  '
      end
      object MaskEdit12: TMaskEdit
        Left = 168
        Top = 264
        Width = 73
        Height = 20
        EditMask = '!99-99-00;1;_'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        MaxLength = 8
        ParentFont = False
        TabOrder = 16
        Text = '  -  -  '
      end
      object MaskEdit11: TMaskEdit
        Left = 168
        Top = 240
        Width = 73
        Height = 20
        EditMask = '!99-99-00;1;_'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        MaxLength = 8
        ParentFont = False
        TabOrder = 17
        Text = '  -  -  '
      end
      object MaskEdit10: TMaskEdit
        Left = 168
        Top = 216
        Width = 73
        Height = 20
        EditMask = '!99-99-00;1;_'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        MaxLength = 8
        ParentFont = False
        TabOrder = 18
        Text = '  -  -  '
      end
      object MaskEdit1: TMaskEdit
        Left = 424
        Top = 120
        Width = 73
        Height = 20
        EditMask = '!99-99-00;1;_'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        MaxLength = 8
        ParentFont = False
        TabOrder = 19
        Text = '  -  -  '
      end
      object MaskEdit18: TMaskEdit
        Left = 424
        Top = 144
        Width = 73
        Height = 20
        EditMask = '!99-99-00;1;_'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        MaxLength = 8
        ParentFont = False
        TabOrder = 20
        Text = '  -  -  '
      end
      object MaskEdit19: TMaskEdit
        Left = 424
        Top = 168
        Width = 73
        Height = 20
        EditMask = '!99-99-00;1;_'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        MaxLength = 8
        ParentFont = False
        TabOrder = 21
        Text = '  -  -  '
      end
      object MaskEdit20: TMaskEdit
        Left = 424
        Top = 192
        Width = 73
        Height = 20
        EditMask = '!99-99-00;1;_'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        MaxLength = 8
        ParentFont = False
        TabOrder = 22
        Text = '  -  -  '
      end
      object MaskEdit21: TMaskEdit
        Left = 424
        Top = 216
        Width = 73
        Height = 20
        EditMask = '!99-99-00;1;_'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        MaxLength = 8
        ParentFont = False
        TabOrder = 23
        Text = '  -  -  '
      end
      object MaskEdit22: TMaskEdit
        Left = 424
        Top = 240
        Width = 73
        Height = 20
        EditMask = '!99-99-00;1;_'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        MaxLength = 8
        ParentFont = False
        TabOrder = 24
        Text = '  -  -  '
      end
      object MaskEdit23: TMaskEdit
        Left = 424
        Top = 264
        Width = 73
        Height = 20
        EditMask = '!99-99-00;1;_'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        MaxLength = 8
        ParentFont = False
        TabOrder = 25
        Text = '  -  -  '
      end
      object MaskEdit24: TMaskEdit
        Left = 424
        Top = 288
        Width = 73
        Height = 20
        EditMask = '!99-99-00;1;_'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        MaxLength = 8
        ParentFont = False
        TabOrder = 26
        Text = '  -  -  '
      end
      object Edit1: TEdit
        Left = 280
        Top = 216
        Width = 137
        Height = 20
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 27
      end
      object Edit2: TEdit
        Left = 280
        Top = 240
        Width = 137
        Height = 20
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 28
      end
      object Edit3: TEdit
        Left = 280
        Top = 264
        Width = 137
        Height = 20
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 29
      end
      object Edit4: TEdit
        Left = 280
        Top = 288
        Width = 137
        Height = 20
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 30
      end
    end
    object TTabPage
      Left = 5
      Top = 26
      Caption = 'Childhood Diseases'
      object Label14: TLabel
        Left = 7
        Top = 330
        Width = 123
        Height = 24
        Caption = 'At the Doctor'
        Font.Color = clBlue
        Font.Height = -21
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object Label15: TLabel
        Left = 144
        Top = 8
        Width = 41
        Height = 19
        Caption = 'Date:'
        Font.Color = clBlue
        Font.Height = -16
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label16: TLabel
        Left = 8
        Top = 40
        Width = 38
        Height = 19
        Caption = 'Title:'
        Font.Color = clBlue
        Font.Height = -16
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object DisTitle: TLabel
        Left = 56
        Top = 40
        Width = 249
        Height = 19
        AutoSize = False
        Caption = 'Diary Empty'
        Font.Color = clBlue
        Font.Height = -16
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label18: TLabel
        Left = 320
        Top = 16
        Width = 99
        Height = 19
        Caption = 'Date Search:'
        Font.Color = clBlue
        Font.Height = -16
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label19: TLabel
        Left = 320
        Top = 80
        Width = 96
        Height = 19
        Caption = 'Title Search:'
        Font.Color = clBlue
        Font.Height = -16
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object DisUp: TSpeedButton
        Left = 280
        Top = 240
        Width = 25
        Height = 25
        Hint = 'Previous Record'
        Glyph.Data = {
          78010000424D7801000000000000760000002800000020000000100000000100
          04000000000000000000120B0000120B00000000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000333
          3333333333777F33333333333309033333333333337F7F333333333333090333
          33333333337F7F33333333333309033333333333337F7F333333333333090333
          33333333337F7F33333333333309033333333333FF7F7FFFF333333000090000
          3333333777737777F333333099999990333333373F3333373333333309999903
          333333337F33337F33333333099999033333333373F333733333333330999033
          3333333337F337F3333333333099903333333333373F37333333333333090333
          33333333337F7F33333333333309033333333333337373333333333333303333
          333333333337F3333333333333303333333333333337333333330000}
        NumGlyphs = 2
        ParentShowHint = False
        ShowHint = True
        OnClick = DisUpClick
      end
      object DisDown: TSpeedButton
        Left = 280
        Top = 272
        Width = 25
        Height = 25
        Hint = 'Next Record'
        Glyph.Data = {
          78010000424D7801000000000000760000002800000020000000100000000100
          04000000000000000000120B0000120B00000000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
          333333333337F33333333333333033333333333333373F333333333333090333
          33333333337F7F33333333333309033333333333337373F33333333330999033
          3333333337F337F33333333330999033333333333733373F3333333309999903
          333333337F33337F33333333099999033333333373333373F333333099999990
          33333337FFFF3FF7F33333300009000033333337777F77773333333333090333
          33333333337F7F33333333333309033333333333337F7F333333333333090333
          33333333337F7F33333333333309033333333333337F7F333333333333090333
          33333333337F7F333333333333000333333333333377733333330000}
        NumGlyphs = 2
        ParentShowHint = False
        ShowHint = True
        OnClick = DisDownClick
      end
      object Shape2: TShape
        Left = 360
        Top = 192
        Width = 81
        Height = 97
        Brush.Color = clBtnFace
        Pen.Color = clRed
        Pen.Style = psInsideFrame
        Pen.Width = 2
      end
      object Label17: TLabel
        Left = 368
        Top = 200
        Width = 65
        Height = 16
        Alignment = taCenter
        AutoSize = False
        Caption = 'Delete'
        Font.Color = clRed
        Font.Height = -13
        Font.Name = 'System'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
      end
      object SpeedButton1: TSpeedButton
        Left = 376
        Top = 216
        Width = 49
        Height = 49
        Glyph.Data = {
          26020000424D260200000000000076000000280000001C0000001B0000000100
          040000000000B0010000CE0E0000D80E00000000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666
          66666666676666660000666666666666666666667B101B160000666666666666
          66666667B101B1B600006666666666666666667B101B1B060000666666666666
          666667B101B1B0B6000066666666666666667B101B1B0B060000666666666666
          66670101B1B0B00600006666666666666672001B1B0B00060000666666666666
          67022201B0B0000600006666666666667B0022000B0000660000666666666667
          B1B10220B0000666000066666666667B1B1B0020000066660000666666666701
          B1B1B0200006666600006666666672001B1B1000006666660000666666670222
          01B1B000066666660000666666780022001B00006666666600006666678D8D02
          20B0000666666666000066667008D800200000666666666600006667FDF08D80
          20000666666666660000667FDFD0D8D00000666666666666000067FDFDF00D80
          0006666666666666000067DFDFDF08000066666666666666000060FDFDFD0000
          06666666666666660000600FDFDF000066666666666666660000600DFDF00006
          6666666666666666000060000000006666666666666666660000660000000666
          66666666666666660000}
        OnClick = SpeedButton1Click
      end
      object Label20: TLabel
        Left = 368
        Top = 264
        Width = 65
        Height = 16
        Alignment = taCenter
        AutoSize = False
        Caption = 'Record'
        Font.Color = clRed
        Font.Height = -13
        Font.Name = 'System'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
      end
      object DisDate: TLabel
        Left = 192
        Top = 8
        Width = 64
        Height = 19
        Caption = '__-__-__'
        Font.Color = clBlue
        Font.Height = -16
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Ok4: TBitBtn
        Left = 340
        Top = 319
        Width = 93
        Height = 27
        Caption = 'Ok'
        Default = True
        Font.Color = clGreen
        Font.Height = -19
        Font.Name = 'Arial'
        Font.Style = []
        ModalResult = 1
        ParentFont = False
        TabOrder = 0
        OnClick = Ok4Click
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          04000000000080000000CE0E0000D80E00000000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
          5555555555555555555555555205555555555555222055555555555522205555
          5555555222220555555555222222055555555722052220555555720555522055
          5555555555522205555555555555220555555555555552205555555555555572
          0555555555555557205555555555555552205555555555555555}
        Margin = 8
        Spacing = -1
      end
      object Cancel4: TBitBtn
        Left = 436
        Top = 319
        Width = 93
        Height = 27
        Font.Color = clRed
        Font.Height = -19
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        OnClick = Cancel4Click
        Kind = bkCancel
        Margin = 2
        Spacing = -1
      end
      object Help4: TBitBtn
        Left = 504
        Top = 287
        Width = 25
        Height = 27
        Caption = ' '
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 2
        OnClick = Help4Click
        Kind = bkHelp
        Margin = 2
        Spacing = -1
      end
      object DisEntry: TMemo
        Left = 8
        Top = 72
        Width = 265
        Height = 225
        Lines.Strings = (
          '')
        ScrollBars = ssVertical
        TabOrder = 3
      end
      object DisDateSearch: TComboBox
        Left = 320
        Top = 40
        Width = 145
        Height = 26
        Font.Color = clBlue
        Font.Height = -16
        Font.Name = 'Arial'
        Font.Style = []
        ItemHeight = 18
        ParentFont = False
        TabOrder = 4
        OnClick = DisDateSearchClick
      end
      object DisTitleSearch: TComboBox
        Left = 320
        Top = 104
        Width = 145
        Height = 26
        Font.Color = clBlue
        Font.Height = -16
        Font.Name = 'Arial'
        Font.Style = []
        ItemHeight = 18
        ParentFont = False
        TabOrder = 5
        OnClick = DisTitleSearchClick
      end
      object BitBtn2: TBitBtn
        Left = 320
        Top = 144
        Width = 145
        Height = 33
        Caption = 'New Entry'
        Font.Color = clBlue
        Font.Height = -19
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 6
        OnClick = BitBtn2Click
      end
    end
  end
end